home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / fg / fgl402e / expas.arj / TEMP / 03-09.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  1KB  |  48 lines
  1. program main;
  2. uses fgmain, fgsvga;
  3.  
  4. const
  5.   description : array [0..27] of string = (
  6.     'cannot be determined',
  7.     'VESA',
  8.     'Ahead A',
  9.     'Ahead B',
  10.     'ATI 18800',
  11.     'ATI 18800-1',
  12.     'ATI 28800/38800/68800/88800',
  13.     'Chips & Technologies 82c451/455/456',
  14.     'Chips & Technologies 82c452',
  15.     'Chips & Technologies 82c453',
  16.     'Genoa 6000 series',
  17.     'Oak OTI-067',
  18.     'Paradise PVGA1a',
  19.     'Paradise WD90C00/WD90C10',
  20.     'Paradise WD90C11/30/31/33',
  21.     'Trident 8800',
  22.     'Trident 8900/9000',
  23.     'Tseng ET3000',
  24.     'Tseng ET4000',
  25.     'Video7',
  26.     'Cirrus Logic 5400 series',
  27.     'S3',
  28.     'NCR 77C22/77C32',
  29.     'Oak OTI-077',
  30.     'Oak OTI-087',
  31.     ' ',
  32.     'Cirrus Logic 6400 series',
  33.     'Avance Logic 2000 series'
  34.     );
  35.  
  36. var
  37.   id : integer;
  38.   major, minor : integer;
  39.  
  40. begin
  41.   fg_initpm;
  42.   id := fg_svgainit(0);
  43.   writeln('SVGA chipset:  ',description[id]);
  44.   writeln('video memory:  ',fg_memory,' kilobytes');
  45.   fg_svgaver(major,minor);
  46.   writeln('SVGA version:  ',major,'.',minor:2);
  47. end.
  48.